home *** CD-ROM | disk | FTP | other *** search
/ Monster Media 1996 #14 / Monster Media No. 14 (April 1996) (Monster Media, Inc.).ISO / prog_bas / basicos2.zip / MATH.BAS < prev    next >
BASIC Source File  |  1996-02-11  |  416b  |  13 lines
  1. 1 rem *
  2. 2 rem *
  3. 3 rem *_MATH_SAMPLE_FOR_NITROUSBASIC
  4. 4 rem *
  5. 5 rem *
  6. 10 cls 
  7. 11 XDELTA=35 :YDELTA=20 :XSCREEN=80 :YSCREEN=50 :GRANULARITY=0.1 :PI=3.14 
  8. 20 cursor (XSCREEN/2 ,YSCREEN/2 ):print "<-- Center"
  9. 25 for THETA=0 to PI*2 step GRANULARITY
  10. 40 XPOS=XSCREEN/2 +cos (THETA)*XDELTA:YPOS=YSCREEN/2 +sin (THETA)*YDELTA
  11. 50 cursor (XPOS,YPOS)
  12. 55 print "Wow":next THETA:cursor (0 ,49 ):print "All Done":end 
  13.